home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / text / print / wbprint.lha / wbprint / Install < prev    next >
Text File  |  1998-02-08  |  3KB  |  143 lines
  1. ; Installer script for wbprint
  2. ;
  3. ; Copyright © 1998 Gerhard Jirsa
  4. ; All rights reserved!
  5. ; Released as Freeware without any explicit or implicit warranty!
  6. ;
  7. ; email: g.jirsa@xpoint.at
  8. ; WWW  : http://www.user.xpoint.at/g.jirsa/
  9. ;
  10. ; $VER: Install 43.8 (08.02.1998)
  11. ;
  12. ; -------------------------------------------------------------------------------
  13.  
  14.  
  15. (procedure check-system-version
  16.     (set #exec-version (/ (getversion) 65536))
  17.     (if (< #exec-version 37)
  18.         (abort "wbprint needs Kickstart 2.04 or higher.\n")
  19.     )
  20. )
  21.  
  22. (procedure select-document-directory
  23.     (set #doc-dest
  24.         (askdir
  25.             (prompt "Select the directory where you want to "
  26.             "install the documentation. ")
  27.             (help "The documentation can be installed anywhere. ")
  28.             (default "Sys:tools")
  29.         )
  30.     )
  31. )
  32. (procedure select-destination-directory
  33.     (if (exists "Sys:WBStartup")
  34.         (set #default-dir "Sys:WBStartup")
  35.         (set #default-dir "Sys:")
  36.     )
  37.     (set @default-dest
  38.         (askdir
  39.             (prompt "Select the directory where you want to "
  40.             "install wbprint. A seperate directory WILL NOT "
  41.             "be created at the location you specify.")
  42.             (help "Select the directory where you want to "
  43.             "install wbprint. Installing wbprint in your "
  44.             "WBStartup drawer is useful if you print regularily "
  45.             "wbstartup is just about 5.3k, so it does not need "
  46.             "much ressources.")
  47.             (default #default-dir) 
  48.         )
  49.     )
  50. )
  51.  
  52. (procedure select-icon
  53.     (set #icon-choice
  54.         (askchoice
  55.             (prompt "Please select which icons you "
  56.             "want to use:")
  57.             (help "wbprefer comes with two different "
  58.             "icon styles. Please select the one you prefer. ")
  59.             (choices "4 color Workbench" "8 Color Workbench")
  60.             (default 0)
  61.         )
  62.     )
  63. )
  64.  
  65. (procedure copy-file
  66.     (copyfiles
  67.         (source #to-copy)
  68.         (dest @default-dest)
  69.         (optional force)
  70.     )
  71. )
  72.  
  73. (procedure copy-files
  74.     (set #to-copy "wbprint")
  75.     (copy-file)
  76.     (complete 30)
  77.     (select #icon-choice
  78.         (set #to-copy "Icons/wbprint.4.info")
  79.         (set #to-copy "Icons/wbprint.8.info")
  80.     )
  81.     (copyfiles
  82.         (source #to-copy)
  83.         (dest @default-dest)
  84.         (newname "wbprint.info")
  85.     )
  86. )
  87.  
  88. (procedure ask-docs
  89.     (set #docstyle
  90.         (askoptions
  91.             (prompt "Which docs do you want to install: ")
  92.             (help "You can install the .doc file (plain ASCII) "
  93.             "and/or the .dvi file (TeX output format, requires "
  94.             "ShowDVI or compatible program). ")
  95.             (choices ".doc (ASCII)" ".dvi (TeX)")
  96.             (default -1)
  97.         )
  98.     )
  99. )
  100.  
  101. (procedure copy-docs
  102.     (if (IN #docstyle 0)
  103.         (copyfiles
  104.             (source "doc/wbprint.doc")
  105.             (dest #doc-dest)
  106.             (infos)
  107.         )
  108.     )
  109.     (if (IN #docstyle 1)
  110.         (copyfiles
  111.             (source "doc/wbprint.dvi")
  112.             (dest #doc-dest)
  113.             (infos)
  114.         )
  115.     )
  116. )
  117.  
  118. ; ------------ Start --------------
  119.  
  120. (welcome "Welcome to the wbprint 1.0 installation.\n")
  121.  
  122. (check-system-version)
  123.  
  124. (complete 0)
  125.  
  126. (set source-dir "")
  127.  
  128. (select-destination-directory)
  129.  
  130. (select-icon)
  131.  
  132. (copy-files)
  133.  
  134. (ask-docs)
  135.  
  136. (if (not(= #docstyle 0))
  137.     (
  138.         (select-document-directory)
  139.         (copy-docs)
  140.     )
  141. )
  142.  
  143. (complete 100)